hTestPlot <-function(inputDir,outputDir="./"){
inputDir <-normalizePath(inputDir)

for(file in  list.files(inputDir,pattern="*.[rR][dD][aA]",full.names=TRUE)){
	load(file)
	title <- paste(result$Name,"\n",result$ScoreOBJ)
	heatMapPlot(result$PVal,result$Name,title=title,directory=inputDir)
}


}